'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Change(Source As Fieldbox)
Declare Sub Lostfocus(Source As Fieldbox)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As FIELDBOX
	Set Source = Bind(Objectname_)
	On Event Change From Source Call Change
	On Event Lostfocus From Source Call Lostfocus
End Sub

'++LotusScript Development Environment:2:2:Change:1:12
Sub Change(Source As Fieldbox)
	
End Sub
'++LotusScript Development Environment:2:2:Lostfocus:1:12
Sub Lostfocus(Source As Fieldbox)
	Macname$ = source.text
End Sub